HPAVC

home *** CD-ROM | disk | FTP | other *** search

/ HPAVC / HPAVC CD-ROM.iso / RBS-WA10.ZIP / WALL.PPE (.txt) < prev

Wrap

PCBoard Programming Language Executable | 1995-03-19 | 8KB | 453 lines

;------------------------------------------------------------------------------ ; .ss. ; `²²' ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs. ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,. ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b. ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$ ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²' ; .sS²°$$$²²°"' d²°' ; .$$² .$$' ; $$$.,d$$' ; `²S$$S²' ;------------------------------------------------------------------------------ ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96 ;------------------------------------------------------------------------------ ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON ;------------------------------------------------------------------------------ Integer INTEGER001 String STRING001 String STRING002 String STRING003 String STRING004 String STRING005 String STRING006 String STRING007 String STRING008 String STRING009 String STRING010 String STRING011 String STRING012 String STRING013 String STRING014 String STRING015 String STRING016 String STRING017 String STRING018 String STRING019 String STRING020 String STRING021 String STRING022 String STRING023 String STRING024 String STRING025 String STRING026 String STRING027 String STRING028 String STRING029 String STRING030 String STRING031 String STRING032 String STRING033 String STRING034 String STRING035 String STRING036 String STRING037 ;------------------------------------------------------------------------------ Cls AnsiPos 1, 1 Print "@X07@X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ @X3B▓@X0F @X3B█▓@X0F @X0B▄▄─▄▄ @X3B█▓@X0F @X3B█▒@X0F @X08▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ " Print "█ ░▒▓@X38▓▒░ @X3B░▒▓█▓▒░ @X38░▒▓@X08▓▒░ █ @X3B░@X38░@X0F @X3B░@X38░@X0F @X3B▓@X03█ @X3B▓@X38░@X0F @X3B░@X38░@X0F @X03▄@X38▒@X0F @X3B░@X38░@X0F @X03▄@X38▒@X0F @X08█ ░▒▓@X38▓▒░ @X3B░▒▓█▓▒░ @X38░▒▓@X08▓▒░ █ " Print "█ ░▒▓@X38▓▒░ @X3B░▒▓█▓▒░ @X38░▒▓@X08▓▒░ ▓ @X38 ▓@X03│@X33 @X38▓@X0F @X3B░@X38▒@X03─@X3B░@X38▓@X0F @X03█@X38▓@X0F @X38 ▓@X0F @X38 ▓@X0F @X38 ▓@X0F @X08▓ ░▒▓@X38▓▒░ @X3B░▒▓█▓▒░ @X38░▒▓@X08▓▒░ █ " Print "█ ■ ▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▒ ▀▀┴▀▀ ▀▀ ▀▀ ▀▀─▀▀ ▀▀─▀▀ ▒▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀ ■ █ " Print "▓ ▓ " Print "░ ░ " AnsiPos 1, 19 Print "@X07@X08░ ░" Print "▒ ▒" Print "▓@X08v1.0ß@X08 @X08 PP@X07E B@X0FY M@X07R JET@X08S ▓" Print "█▄▄▄ ▄ ▄ ■ @X07DO YOU WANT TO ADD A LiNE? @X08[@X0FN/y@X08/W] ■ ▄ ▄ ▄▄▄█" GetUser FOpen 1, PPEPath() + "WALL.DAT", 2, 3 FOpen 2, PPEPath() + "NAMES.DAT", 2, 3 AnsiPos 3, 5 :LABEL001 FSeek 1, 0, 0 STRING002 = "@X0B" For INTEGER001 = 5 To 20 FGet 1, STRING004 AnsiPos 2, INTEGER001 Print " " AnsiPos 40 - Len(STRING004) / 2, INTEGER001 Print "@X08" + STRING004 Delay 1 AnsiPos 40 - Len(STRING004) / 2, INTEGER001 Print "@X07" + STRING004 Delay 1 AnsiPos 40 - Len(STRING004) / 2, INTEGER001 Print "@X0F" + STRING004 Delay 1 AnsiPos 40 - Len(STRING004) / 2, INTEGER001 Print STRING002 + STRING004 If (STRING002 == "@X0B") Then STRING002 = "@X03" Continue Endif STRING002 = "@X0B" Next :LABEL002 STRING003 = Inkey() If (STRING003 <> "") Then Goto LABEL003 Endif Goto LABEL002 :LABEL003 If (Upper(STRING003) == "N") Then AnsiPos 12, 22 Print " @X08Zee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X07Zee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X0FZee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X0FZee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X07Zee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X08Zee Yah sUME oTHeR TiME... " Delay 3 Else If (Upper(STRING003) == "Y") Then Goto LABEL005 Endif If (Upper(STRING003) == "W") Then If (U_Sec < 110) Then AnsiPos 12, 22 Print " @X08THAT'S A SYSOP FUNCTiON... " Delay 3 AnsiPos 12, 22 Print " @X07THAT'S A SYSOP FUNCTiON... " Delay 3 AnsiPos 12, 22 Print " @X0FTHAT'S A SYSOP FUNCTiON... " Delay 3 AnsiPos 12, 22 Print " @X07THAT'S A SYSOP FUNCTiON... " Delay 3 AnsiPos 12, 22 Print " @X08THAT'S A SYSOP FUNCTiON... " Delay 10 AnsiPos 12, 22 Print " @X07DO YOU WANT TO ADD A LiNE? @X08[@X0FN/y@X08/W] " Else Else Endif If (STRING003 == Chr(13)) Then AnsiPos 12, 22 Print " @X08Zee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X07Zee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X0FZee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X0FZee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X07Zee Yah sUME oTHeR TiME... " Delay 3 AnsiPos 12, 22 Print " @X08Zee Yah sUME oTHeR TiME... " Delay 3 Goto LABEL009 Endif Goto LABEL002 Endif FSeek 2, 0, 0 For INTEGER001 = 5 To 20 FGet 2, STRING021 AnsiPos 3, INTEGER001 Print " " AnsiPos 3, INTEGER001 Print STRING021 Next AnsiPos 12, 22 Print " @X08PRESS ENTER TO CONTiNUE... " Delay 3 AnsiPos 12, 22 Print " @X07PRESS ENTER TO CONTiNUE..." Delay 3 AnsiPos 12, 22 Print " @X0FPRESS ENTER TO CONTiNUE..." Delay 3 :LABEL004 STRING003 = Inkey() If (STRING003 == Chr(13)) Then AnsiPos 12, 22 Print " @X0FPRESS ENTER TO CONTiNUE... " Delay 3 AnsiPos 12, 22 Print " @X07PRESS ENTER TO CONTiNUE..." Delay 3 AnsiPos 12, 22 Print " @X08PRESS ENTER TO CONTiNUE..." Delay 3 AnsiPos 12, 22 Print " @X07DO YOU WANT TO ADD A LiNE? @X08[@X0FN/y@X08/W] " Goto LABEL001 Endif Goto LABEL004 :LABEL005 AnsiPos 12, 22 Print "@X0F " AnsiPos 12, 22 STRING004 = "" InputText "@X07COMMENT@X0F", STRING004, 15, 47 AnsiPos 12, 22 Print " @X07DO YOU WANT TO BE ANONYMOUS @X08[@X0FN/y@X08] " :LABEL006 STRING003 = Inkey() If (STRING003 <> "") Then Goto LABEL007 Endif Goto LABEL006 :LABEL007 Select Case (Upper(STRING003)) Case "N" STRING001 = " @X08/ " + U_Name() Case "Y" STRING001 = " @X08/ -ANONYMOUS-" Case Chr(13) STRING001 = " @X08/ " + U_Name() Case Else Goto LABEL006 End Select AnsiPos 12, 22 Print " " STRING004 = STRING004 + STRING001 FSeek 1, 0, 0 FGet 1, STRING005 FGet 1, STRING006 FGet 1, STRING007 FGet 1, STRING008 FGet 1, STRING009 FGet 1, STRING010 FGet 1, STRING011 FGet 1, STRING012 FGet 1, STRING013 FGet 1, STRING014 FGet 1, STRING015 FGet 1, STRING016 FGet 1, STRING017 FGet 1, STRING018 FGet 1, STRING019 FGet 1, STRING020 STRING005 = STRING006 STRING006 = STRING007 STRING007 = STRING008 STRING008 = STRING009 STRING009 = STRING010 STRING010 = STRING011 STRING011 = STRING012 STRING012 = STRING013 STRING013 = STRING014 STRING014 = STRING015 STRING015 = STRING016 STRING016 = STRING017 STRING017 = STRING018 STRING018 = STRING019 STRING019 = STRING020 STRING020 = STRING004 FSeek 1, 0, 0 FPutLn 1, STRING005 FPutLn 1, STRING006 FPutLn 1, STRING007 FPutLn 1, STRING008 FPutLn 1, STRING009 FPutLn 1, STRING010 FPutLn 1, STRING011 FPutLn 1, STRING012 FPutLn 1, STRING013 FPutLn 1, STRING014 FPutLn 1, STRING015 FPutLn 1, STRING016 FPutLn 1, STRING017 FPutLn 1, STRING018 FPutLn 1, STRING019 FPutLn 1, STRING020 FSeek 2, 0, 0 FGet 2, STRING022 FGet 2, STRING023 FGet 2, STRING024 FGet 2, STRING025 FGet 2, STRING026 FGet 2, STRING027 FGet 2, STRING028 FGet 2, STRING029 FGet 2, STRING030 FGet 2, STRING031 FGet 2, STRING032 FGet 2, STRING033 FGet 2, STRING034 FGet 2, STRING035 FGet 2, STRING036 FGet 2, STRING037 STRING022 = STRING023 STRING023 = STRING024 STRING024 = STRING025 STRING025 = STRING026 STRING026 = STRING027 STRING027 = STRING028 STRING028 = STRING029 STRING029 = STRING030 STRING030 = STRING031 STRING031 = STRING032 STRING032 = STRING033 STRING033 = STRING034 STRING034 = STRING035 STRING035 = STRING036 STRING036 = STRING037 STRING037 = "@X07 [@X08" + I2S(Year(Date()), 10) + "-" + I2S(Month(Date()), 10) + "-" + I2S(Day(Date()), 10) + " / " + TimeAp(Time()) + "@X07] @X03-@X0B" + U_Name() + "@X03-@X07 @X07" FSeek 2, 0, 0 FPutLn 2, STRING022 FPutLn 2, STRING023 FPutLn 2, STRING024 FPutLn 2, STRING025 FPutLn 2, STRING026 FPutLn 2, STRING027 FPutLn 2, STRING028 FPutLn 2, STRING029 FPutLn 2, STRING030 FPutLn 2, STRING031 FPutLn 2, STRING032 FPutLn 2, STRING033 FPutLn 2, STRING034 FPutLn 2, STRING035 FPutLn 2, STRING036 FPutLn 2, STRING037 FSeek 1, 0, 0 STRING002 = "@X0B" For INTEGER001 = 5 To 20 FGet 1, STRING004 AnsiPos 2, INTEGER001 Print " " AnsiPos 40 - Len(STRING004) / 2, INTEGER001 Print "@X08" + STRING004 Delay 1 AnsiPos 40 - Len(STRING004) / 2, INTEGER001 Print "@X07" + STRING004 Delay 1 AnsiPos 40 - Len(STRING004) / 2, INTEGER001 Print "@X0F" + STRING004 Delay 1 AnsiPos 40 - Len(STRING004) / 2, INTEGER001 Print STRING002 + STRING004 If (STRING002 == "@X0B") Then STRING002 = "@X03" Continue Endif STRING002 = "@X0B" Next AnsiPos 12, 22 Print " @X08PRESS ENTER TO CONTiNUE... " Delay 3 AnsiPos 12, 22 Print " @X07PRESS ENTER TO CONTiNUE..." Delay 3 AnsiPos 12, 22 Print " @X0FPRESS ENTER TO CONTiNUE..." Delay 3 :LABEL008 STRING003 = Inkey() If (STRING003 == Chr(13)) Then AnsiPos 12, 22 Print " @X07PRESS ENTER TO CONTiNUE... " Delay 3 AnsiPos 12, 22 Print " @X08PRESS ENTER TO CONTiNUE... " Delay 3 Else Goto LABEL008 Endif Endif :LABEL009 FClose 1 FClose 2 Cls ;------------------------------------------------------------------------------ ; ; Usage report (before postprocessing) ; ; ■ Statements used : ; ; 2 Cls ; 40 Goto ; 53 Let ; 55 Print ; 17 If ; 2 FOpen ; 2 FClose ; 35 FGet ; 32 FPutLn ; 1 GetUser ; 34 Delay ; 1 InputText ; 49 AnsiPos ; 7 FSeek ; ; ; ■ Functions used : ; ; 8 / ; 26 + ; 8 - ; 11 == ; 2 <> ; 4 < ; 3 <= ; 6 >= ; 17 ! ; 6 && ; 3 || ; 8 Len( ; 5 Upper() ; 4 Chr() ; 3 Date() ; 1 Time() ; 3 U_Name() ; 1 Year() ; 1 Month() ; 1 Day() ; 1 TimeAp() ; 4 Inkey() ; 2 PPEPath() ; 3 I2S() ; ;------------------------------------------------------------------------------ ; ; Analysis flags : No flag ; ;------------------------------------------------------------------------------ ; ; Postprocessing report ; ; 3 For/Next ; 0 While/EndWhile ; 11 If/Then or If/Then/Else ; 1 Select Case ; ;------------------------------------------------------------------------------ ; AEGiS Corp - Break the routines, code against the machines! ;------------------------------------------------------------------------------